FICHE 1 OF 1 MADE IN USA 


BOOTSTRAP TERMINATOR 8K AH-E058C-MC JAN 1979 
M931 2 CZMSBCO COPYRIGHT 1978 di ijgl i|tlal! 








CZM9BCO M9312 BOOT TERMR 8K 
06-NOV=78 11:15 


— 
MACY11 30A(1052) O6-NOV-78 11:16 PAGE 59 


IDEN IF ICATION 


PRODUCT CODE: AC-E057C-MC 

PRODUCT NAME: CZM9BCO M9312 BOOT TERMR 8k 
DATE: JUNE, 1978 

MAINTAINER: DIAGNOSTIC GROUP 


THE INFORMATION IN a DOCUMENT IS SUBJECT TO 


I 
THIS DOCUMENT. THE SOFTWARE DESCRIBED IN THIS 
DOCUMENT IS FURNISHED UNDER A LICENSE AND MAY ONLY 
BE SUED OR COPIED IN ACCORDANCE WITH THE TERMS OF 
SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUME S NO 
RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
lester” ON EQUIPMENT THAT IS NOT SUPPLIED BY 


COPYRIGHT (() 1978 BY DIGITAL EQUIPEMNT 
CORPORAT ] ON 
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15 


HISTORY SECTION 


CZM9BAO WAS RELEASED MARCH, 1978. 
CZ7M9BBO WAS RELEASED JUNE, 1978. 
CIMOBCO WAS RELEASED JANUARY, 1979 


REVISION B WAS CREATED TO PROVIDE THE FOLLOWING ENHANCEMENTS: 


Vis 


REVISION C 


TREM | 


PROPERLY CHECK THE BOOT ROM'S ALPHABETIC SEQUENCE AND, 

IF NOT IN CORRECT SEQUENCE, PRINT THE CORRECT SEQUENCE AS 
AN ERROR MESSAGE. ALSO CHECK oo NO HOLES AND CHECK 

FOR ROM IN SOCKET #2 IF 11/60 AND ONLY ONE ROM EXISTS, 
ELSE PRINT THE CORRECT SEQUENCE. 


THE DIAGNOSTIC CANNOT DETERMINE THE DEVICE CODE FOR A 
CONTINUATION ROM. THEREFORE, CONTINUATION ROMS ARE TREATED 
AS EXTENSIONS OF THE PRECEEDING DEVICE CODE ROM. ILLEGAL 
PLACEMENT OF CONTINUATION ROMS ARE REPORTED IN ERROR 
MESSAGES. A DUPLICATE DEVICE ROM IS ALSO REPORTED IN 

AN ERROR MESSAGE. 


COMMENT FIELDS BEGINNING WITH THE CHARACTERS "'; 
IDENTIFY ALL LINES ADDED OR MODIFIED BY REV 80. 


WAS CREATED TO PROVIDE THE FOLLOWING ENHANCEMENTS: 


TO UPDATE THE DIAGNOSTIC BASED ON FAULT INSERTION OF 
THE M9312 MODULE. 


TO ADD A * NO ROMS FOUND ' MESSAGE. 

TO SIZE FOR A FALSE ERROR CAUSED BY A nee FAILURE TO 
ND THE CPU ROM IS 

PRESENT. THIS SHOULD NOT BE TREATED » = FATAL ERROR 


(WHICH IT WAS IN REV. ®) PREVIOULY , APT WOULD NOT RUN 
IN PRINTING MODE DISABLED DUE TO THs ERROR. 


COMMENT FIELDS BEGINNING WITH THE CHARATERS *';-"' 
IDENTIFY ALL LINES ADDED OR MODIFIED BY REV. C. 


7.0 ABSTRACT 


THIS PROGRAM eet ae THE ROM INFORMATION FOR THE M9312 BOOTSTRAP 
TERMINATOR. IT HAS TWO MODES OF OPERATION; STAND-ALONE MODE 
WHICH REQUIRES OPERATOR INTERVENTION AND APT-MODE. 


2.0 REQUIREMENTS 


SEQ 0002 
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2.1 HARDWARE 
ANY PDP=11 UNIBUS PROCESSOR WITH CONSOLE TERMINAL AND/OR HARDWARE 
eerist REGISTER 


2 BOOT STRAP TERMINATOR 
4K MEMORY 


SOF TWARE 
THIS PROGRAM REQUIRES THAT THE CORRECT OPERATION OF 


THE 
PROCESSOR, MEMORY AND CONSOLE TERMINAL HAVE BEEN VERIFIED BY THE 
APPROPRIATE DIAGNOSTICS. 


LOADING AND STARTING PROCEDURES 

LOAD THE PROGRAM BY ANY OF THE STANDARD PROCEDURES FOR ABSOLUTE PROGRAM FORMATS. 
STARTING ADDRESS 

200- DO CRC VERIFICATION AND SIZING 


RESTART ADDRESS 
204- RESTART WITHOUT SIZING 


SPECIAL ENVIRONMENTS 


THIS PROGRAM IS APT COMPATIBLE SEE SECTION FOR ETABLE SET-UP. 
FOLLOW STANDARD APT PROCEDURES FOR LOADING AND STARTING. 


OPERATING PROCEDURES 
OPERATIONAL SWITCH SETTINGS 


THE PROGRAM IS DESIGNED TO USE “HE HARDWARE SWITCH REGISTER, 
HOWEVER IF THIS REGISTER IS NOT LAE THE PROGRAM WILL USE 
LOCATION 176 AS THE SWITCH REGISTE® 


SW 15=1 OR UP=~ HALT ON ERROR 
OR UP=- INHIBIT ERROR TYPEOUTS 
OR UP=- BELL ON ERROR 
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4.2 EXECUTION TIMES 





EXECUTION TIME IS DEPENDENT ON THE CONSOLE TERMINAL DURING THE 
FIRST PASS. ALL OTHER PASSES TAKE LESS THEN 1 SECOND. 


APT PROCEDURES 


THERE ARE TWO CHOICES WHEN RUNNING UNDER APT. IF THE SIZE BIT 
(BIT 7-$ENVM) E_ PROGRAM WILL OPERATE IN NORMAL 
STAND~ALONE MODE. E SIZE BIT IS_ SET THE PROGRAM WILL 
COMPARE PARAMETERS FROM THE BOARD TO THE CONTENTS OF THE ETABLE. 
a APT COMPARSION FEATURE THE ETABLE MUST BE SET UP IN 


DON'T CARE 


NOT USED 

PSEUDO POWER-FAIL VECTOR ADDRESS 
NOT USED 

CONTENTS OF ADDRESS IN $BASE 
NOT USED 


DEVICE CODES EXPECTED 
FIRST LETTER/SECOND LETTER 


NOTE: THE ORDER FOR LOADING $DDwO 3 IMPORTANT. THE FIRST 
VALUE SHOULD BE FOR THE DIAGNOSTIC / CPU ROM, FOLLOWED 
BY THE APPROPRIATE OCTAL VALUES FOR THE BOOT ROMS PRESENT. 
SOME oa VALUES USED ARE: 

OCTAL DATA MNEMON] C PIN LABELING 
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SUBROUTINE ABSTRACTS 
NOROMS 


THIS ROUTINE IS CALLED ONLY IF NO ROMS WERE FOUND DURING SIZING 
IT DOES A READ OF ALL BOOTSTRAP ROM ADDRESSES AND COMPARES THE 
CONTENTS TO A KNOWN EXPECTED VALUE. 


CHECKS 


THIS ROUTINE SETS UP_THE FIRST, LAST AND EXCEPTION ADDRESSES FOR 
THE '"‘CALSUM'' SUBROUTINE. :7 RECIEVES THE CALCULATED CHECKSUM FROM 
eee COMPARES IT AGAINST THE GOOD CHECKSUM TO DETERMINE 


CAL SUM 


THIS ROUTINE CALCULATES THE CRC16 CHECKSUM OF EACH ROM. IT 
RECEIVES THE FIRST ADDRESS TO BE CHECKED(FIRSTA), THE LAST 
ADDRESS TO BE CHECKED(LASTAD) AND THE EXCEPTION ADDRESS (EXCADD) 
FROM THE *‘CHECKS'' MODULE AND RETURNS TO IT THE CHECKSUM IN 24, 


PROMP 


THIS ROUTINE PROCESSES THE ROM PARAMETERS. IT CHECKS THE SIZE/ 
DON'T SIZE BIT IN THE APT ETABLE AND EITHER FORMATS THE SIZING 
a OR COMPARES THE SIZING INFORMATION TO THE APT ETABLF 


DEVCOD 


THIS ROUTINE LOCATES EACH DEVICE CODE AND PASSES IT AND THE 
ADDRESS IN WHICH IT WAS FOUND BACK TO THE ‘PROMP’' MODULE. 


PPF VAR 


THIS ROUTINE DETERMINES THE PSEUDO POWER-FAIL VECTOR ADDRESS AND 
PASSES IT AND ITS CONTENTS TO THE 'PROMP** MODULE 


PUTME S 
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THIS ROUTINE FORMATS THE PARAMETER AND POWER-FAIL ADDRESS 
MESSAGES. 


ERRHAN 


THIS ROUTINE FORMATS ALL ERROR MESSAGES AND CALLS THE TYPE 
ROUTINE TO OUTPUT THEM. IT ALSO USES THE $1 ees SWITCHES TO 
DETERMINE WHETHER TO OUTPUT THE MESSAGE, OR HALT 


F ILBUF 


HIS ROUTINE FILLS THE MESSAGE BUFFER WITH ASCII CHARACTERS. IT 
RECIEVES THE ADDRESS OF THE ASCJI IN R5. 


OCASC 


THIS ROUTINE TAKES A SiXTEEN BIT BINARY NUMBER AND CONVERTS IT TO 
6 ASCII CHARACTERS. 


OCADD 


THIS ROUTINE IS USED BY THE 'PUTMES'' MODULE WHEN THE DATA IN R3 
IS NOT_IN THE RIGHT MODE TO BE_HANDLED BY THE ‘OCASC'' MODULE. IT 
MOVES THE ADDRESSING MODE OF R3 UP ONE LEVEL OF DEFERMENT. 


RELIABILITY//AVAILABILITY/SERVICEABILITY 
WHEN RUNNING IN ANY ENVIRONMENT BUT APT THERE IS ONLY ONE ERROR 
DETECTED BY THE PROGRAM. THIS ERROR IS A CHECKSUM ERROR. THE 
MESSAGE WILL BE: 

CRC ERROR IN ROM EXX 
THE FOLLOWING ERROR MESSAGES WERE ADDED IN REV BO: 


A CONTINUATION ROM IS INCORRECTLY LOCATCD IN -- K(EXX) 


7 
2. 
 § 
4. 


E X 
ROM SEQUENCE IS INCORRECT AS PER INSTALLATION PROCEDURE . 
SEQUENCE SHOULD BE: 
ROM 1(£35) KX 
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WHEN RUNNING IN THE APT ENVIRONMENT THREE OTHER ERRORS MAY OCCUR. 


1 





AN a A OCCUR WHEN THE DEVICE CODES IN THE ETABLE DO 
NOT THE ee CODES FOUND IN THE ROMS. THE ERROR 
MESSAGE MILL BE EITHER 


1. COULD NOT FIND DEVICE CODE Xxx. 
2. FOUND UNEXPECTED DEVICE CODE Xx. 


THE FIRST MESSAGE WILL BE PASSED TD APT IF A_ DEVICE CODE 
LISTED IN THE ETABLE CANNOT BE FOUND IN THE EXISTING ROMS. 
THE SECOND MESSAGE WILL BE io IF A DFVICE CODE NOT LISTED 
IN THE ETABLE IS FOUND IN A ROM, 


THE SECOND ERROR WILL BE IF THE PSEUDO POWER-FAIL VECTOR 
ADDRESS IN _ THE ETABLE DOES NOT MATCH THE ADDRESS DETERMINED 
gO ete TO BE IN THE BOARDS SWITCHES. THE MESSAGE 


POWER-FAIL VECTOR 
EXPECTED RECEIVED 


WHERE EXPECTED IS THE CONTENTS OF THE ETABLE AND RECEIVED IS 


THE VALUE FOUND BY THE PRO 


THE THIRD ERROR WILL BE IF THE CONTENTS OF BOARD'S PSEUDO 
POWER-FAIL_ VECTOR ADDRESS DOES NOT MATCH THE VALUE EXPECTED 
FROM THE ETABLE. THE MESSAGE WILL BE: 


POWER=FAIL DATA ERROR 
EXPECTED RECEIVED 


7.0 NOTE: DIAGNOSTIC COVERAGE 


THIS DIAGNOSTIC Bo gt PERFORM ANY EXAMINATION OF 
THE BOOT CIRCUITRY ON THE M9312. IF YOU WISH TO CHECK THIS 
CIRCUITRY YOU MUST FIRST, DETERMINE WHICH np le YOU WILL BOOT 
AND SECOND, OU MUST SET THE SWITCHES ON THE M9312 


. IF THE DEVICE DOES BOOT THIS SHOULD BE 
EVIDENT FROM THE CONSOLE TERMINAL, IF PRESCNT, OR FROM THE RUN 
LIGHT ON THE FRONT PANEL, WHICH SHOULD BE LIT. 
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-ENABLE ABS 
AIS' 
a MC ,MD 
TITLE czApBCO “M9312 BOOT TERMR 8K 
: *COPYRIGHT 978 


(C) 1 
:*DIGITAL EQUIPMENT sal 
samy NARD, MASS. 0175 


! *PROGRAM BY BARRY G. IRRGANG 


THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
s #PACKAGE (MAINDEC-11=DZQAC-C3), JAN 19, 1977. 


$1N= 1 
$SWR= 160000 HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
- SBTTL OPERATIONAL SWITCH SETTINGS 


SWITCH 


BOQ PLE PLO LLP LK 


Leal 


HALT ON ERROR 
; LOOP ON TEST 

: 13 INHIBIT ERROR TYPEOUTS 
“SBTTL BASIC DEFINITIONS 


c—- tee OF THE STACK POINTER *** 1100 *** 
-EQUIV EMT,ERROR ; BASIC DEFINITION OF ERROR CALL 
-EQUIV IOT; SCOPE > sBASIC DEFINITION OF SCOPE CALL 


: *MISCELLANEOUS DEFINITIONS 
000011 HT= 11 :CODE FOR HORIZONTAL TAB 
000012 CODE FOR LINE FEED 
000015 15 CODE 4 CARRIAGE RETURN 
000200 00 :CODE FOR CARRIAGE RETURN-LINE FEED 
177776 : ;PROCESSOR STATUS WORD 


177774 23 STACK LIMIT REGISTER 

177772 PROGRAM INTERRUPT REQUEST REGISTER 
177570 DSWR= 7570 : S HARDWARE SWITCH REGISTER 

177570 DDISP= 177579 HARDWARE DISPLAY REGISTER 


: *GENERAL PURPOSE REGISTER DEF INITIONS 
RO= %0 NERAL REGISTER 
REGISTER 

RAL REGISTER 
REGISTER 
REGISTER 


a a a i al 
— aed os od I 


Ww 


; « GENERAL REG] 
eae POINTER 
PROGRAM COUNTER 


e*PRIORITY LEVEL cEFINITIONS 
PRO= 0 iePRIORITY LEVEL O 
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PR1= 
PR2= 
PR3= 
PR4= 
PR5= 
PR6= 
PR7= ;zPRIORITY 


3*' ‘SWITCH REGISTER’’ SWITCH DEF INITIONS 
Sw15= 100000 


;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 BIT15= 100000 
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-EQUIV BIT06,B1T6 


+ 


Ne Ne Ne ee ee eee eee aes ae 


BIT00,BITO 


; *BASIC "“CPU"’ TRAP VECTOR _ADDRESSES 
= 4 ME OUT AND OTHER ERRORS 
neg A AND ILLEGAL INSTRUCTIONS 


7: TRACE T 
+ FBREAKPOINT TRAP (BPT) 
sien Fi TRAP (IOT) **SCOPE** 


AIL 
; ;EMULATOR TRAP (EMT) **ERROR** 
RAP" TRAP 


>: TTY KEYBOARD VECTOR 
::TTY PRINTER VECTOR 
P1RQVEC=240 2 PROGRAM INTERRUPT REQUEST VECTOR 


ERR KR KER EKER KEKE KKK EEE EEEEEKKE RK 


3* PROGRAM EQUATES 


FERRER KEKE KE EKER RRR RR E RE RKRE KKK EEEREREAEKEKEKK KKK 


2 
4 


LL LO LOLOL LL mm Om i, 


DUPERR=2000 
-=0 
-SBTTL TRAP CATCHER 


=0 
;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A "' .+2,HALT"’ 
:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
i 19 TANS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: = WORD 0 i:SOFTWARE DISPLAY REGISTER 
SWREG: _.WORD 0 2 sSOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 

gk 4 001400 JMP @ASTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 


PLL LLL LN ONO 
we we a 


0002 -=20 
000167 001656 JMP RSTART 
-SBTTL ACT11 HOOKS 


° SAAR ERE EERE ERE ERE EERE RE RAE REERAREERERRR EERE REE EeEe 
* HOOKS g br Bi ACT11 
$SVPC= 7 SAVE PC 
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CZM9BC 
CZM9BC .P11 
1) 
$4 000046 
(1) 000052 
(1) 
5970 
5971 
5972 001100 
5973 001101 
5974 001102 
5975 001104 
5976 001106 
5977 001110 
5978 001112 
5979 001114 
5980 001116 
5981 001120 
5982 
5985 
(1) 
(2) 
(1) 
(2) 
(1) 
(1) 
* Came 
(1) 000044 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 001122 
(1) 001122 
(1) 001124 
(1) 001126 
(1) 001130 
(1) 001132 
(1) 001134 
5984 
(1) 
(2) 
(7) 
(1) 001136 
(1) 001136 
(1) 001140 
(1) 001142 
(1) 001144 
(1) 001146 
(1) 001150 
(1) 001152 
(1) 001154 
(1) 001156 
(1) 001156 
(1) 001157 


000046 
002174 
000052 


000000 
000210 
001100 

000 

000 
000000 
177570 
177570 
000000 


000000 
173000 


MACY11 yeh 


ACT11 


ERRCNT : 


- SBTTL 


FREER E KR KR EKEKEKKKREKKRE EK EKKEKEKKRKEEEKEREKKEK 
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321)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
0 age 3 LOC. rt TO ZERO 
RESTORE P 


oo 


APT PARAMETER BLOCK 


SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


SL RRR RE RREKKEEEEERERREEKEEKKEKEEEKEEKEKREREKEREKREEEEEKRKKK 


. . 
ileteiy damt Gemecertees ian tate: Gan hae tame de eae aeecbeeaa madonna 


SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
S INTERFACE SPEC. 


CD II KK EERE KKK KEE EEE KEKE EERE KE EK KK Ik 


SENVM: 


:2SAVE CURRENT LOCATION 


22SET POWER FAIL TO POINT TO START OF PROGRAM 


7zFOR APT START UP 


zsPOINT TO APT weytet i A sua PNTR. 


:zPOINT TO APT HEADER 
;sRESET LOCATION COUNTER 


0 TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
cs : JADDRESS OF APT eet tear (BITS 0-15) 


;2RUN TIM OF LONGEST 


* 2 RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 


SEQ 0011 


L RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


;ADDITIONAL 
END-$MAIL/2 ;;LENGTH MAILBOX~E TABLE (WORDS) 


$ET 
APT MAILBOX~E TABLE 


‘BYTE 


72:APT MAILBOX 
AMSGTY ;;MESSAGE TYPE CODE 
AFATAL ;;FATAL ERROR NUMBER 
2 NUMBER 


AMSGAD ; MESSAGE che 
AMSGLG font a LENG 
ENVIRONMENT TABLE 
ACNV ENVIRONMENT BYTE 
AENVM = ;;ENVIRONMENT MODE BITS 
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001160 : ASWREG ;;APT SWITCH REGISTER 
001162 $s AUSWR : ;USER x ITCHES 
001164 : ACPUOP ;;CPU TYPE,OPTIONS 

; BiTs 15-115¢PU T TYPE 

i 1n=0) 11/05=02,11/20=03,11/40=04,11/45=05 
/70=06 .PDQ=07 ,0=10 

BIT 10=REAL TIME cL OcK 
BIT 9=FLOATING POINT a 
BIT 8=MEMORY MANAGEMENT 


: HIGH ADDRESS, oO” BYTE 


TYPE ,BLK# 
MEM.TYPE BYTE == (HIGH BYTE) 
900 NSEC CORE=001 
505 eee BIPOLAR=002 
: cae $=003 


3 HIGH ADDRES Se.BL 
MEM.LAST ADDR. aa BYTES, THIS WORD AND LOW OF ‘TYPE’ ABOVE 
2 :HIGH ADDRESS, 5 -S. BYTE 


is - TYPE ,BLKA. 
M.LAST ADDRESS ,BLKA#2 
; HIGH ADDRESS, se -S.BYTE 


33 YPE ,BLKA 
M.LAST ADDRESS ,BLKA3 
; HIGH == y ot te ~S.BYTE 


ae -BLKA 
:MEM, LAST ADDRESS ,BLKA4 
>: INTERRUPT VECTORA#1,BUS PRIORITY#1 
> INTERRUPT VECTORA2BUS PRIORITY#2 
3; ;BASE “ss OF EQUIPMENT UNDER TEST 


: DEVICE 
z 2 TROLLED DESCRIPTION WORDA1 
: CONTROLLER DESCRIPTION WORDA#2 
VICE DESCRIPTOR WORDAO 


WORD# 
DESCRIPTOR WORDAS 
DESCRIPTOR WORD#6 


DESCRIPTOR 
CE DESCRIPTOR WORDA9 


$DDW15: | ADDW15 ::DEVICE DESCRIPTOR 


SETEND: 


001400 -=1400 
START: 
-SBTTL INITIALIZZ THE COMMON TAGS 
012706 001100 MOV #STACK,SP 3. SETUP THE STACK POINTER 
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CZM9BC P11 06=NOV=78 11:15 INITIALIZE THE COMMON T SEQ 0013 
(1) sr INITIALIZE A FEW VECTORS 

(1) 012737 006442 000034 MOV ASTRAP , a# TRAP ; TRAP VECTOR FOR TRAP CALLS 

(1) 001412 012737 900340 000036 MOV #340, _aATRAPVEC 6: iéve 

(1) 001420 005067 177520 CLR rik gL” THE PASS COUNT 

(1) 001424 016767 000520 000510 MOV SEND MDCT ,SEOPCT ::SETUP END-OF-PROGRAM COUNTER 

(2) ::SIZE FOR A HARDWARE SIT CH REGISTER. IF NOT FOUND OR IT 

(2) ;;EQUAL TO A ‘~1°', SETUP FOR A SOFTWARE SWITCH REGISTER. 

(2) 001432 013746 000004 MOV @WERRVEC ,-(SP) : 3 SAVE ERROR VECTOR 

(2) 001436 012737 001472 0G0004 MOV #64$,a#ERRVEC ::SET UP ERROR VECTOR 

(2) 001444 012767 177570 177432 MOV ADSWR, SWR 33 SETUP FOR A HARDWARE SWICH REGISTER 

(2) 001452 012767 177570 177426 MOV #DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 

(2) 001460 022777 177777 1776416 CMP #-1,aSWR zz TRY TO REFERENCE HARDWARE SWR 

(2) 001466 001012 BNE 66$ 7 BRANCH IF NO TIMEOUT TRAP OCCURRED 

(2) iZAND THE HARDWARE SWR IS NOT = ~1 

(2) 001470 000403 BR 65$ “BRANCH IF NO TIMEOUT 

(2) 001472 012716 0015U0 64$: MOV #65$, (SP) ::SET UP FOR TRAP RETURN 

(2) 001476 000002 RTI 

(2) 001500 012767 000176 177376 65$: MOV ASWREG, SWR yiiPOINT TO SOFTWARE SwR 

(2) 001506 012767 000174 177372 MOV #D1SPREG, DISPLAY 

(2) 001514 012637 000004 66$: MOV (SP)+,aMERRVEC ;:RESTORE ERROR VECTOR 

(2) 001520 005067 177420 CLR $PASS z:CLEAR PASS COUNT 

(2) 001524 132767 000200 177425 BITB  #APTSIZE,SENVM ::TEST USER SIZE UNDER APT 

(2) 001532 001403 Bea 67$ ::YES,USE NON-APT SWITCH 

(2) 001534 012767 001160 177342 MOV ASSWREG, SWR :3NO, USE APT SWITCH REGISTER 

(2) 001542 67$: 

5987 .SBITL TYPE PROGRAM NAME 

(1) 7; TYPE THE NAME OF THE PROGRAM IF FIRST PASS 

(1) 001542 005227 177777 INC #-1 ::FIRST TIME? 

(1) 001546 001046 BNE 68s * BRANCH IF NO 

(1) 001550 022737 002174 000042 CMP ASENDAD , a#42 SACTON? 

(1) 001556 001442 BEQ 68$ : :BRANCH I YES 

(1) 001560 104401 001626 TYPE 69S “TYPE AS Lz STRING 

(2) .SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 

(2) 001564 005737 000042 TST aws2 7ZARE WE RUNNING UNDER XXDP/ACT? 

(2) 001570 001012 BNE 70$ + BRANCH IF YES 

(2) 001572 126727 177360 000001 CMPB Ss SENV,, #1 :ZARE WE RUNNING UNDER APT? 

(2) 001600 001406 BEQ 70$ : ;BRANCH H IF YES 

(2) 001602 026727 177276 000176 CMP SWR,ASWREG ; SOFTWARE SWITCH REG SELECTED? 

(2) 001610 001005 BNE 71$ CH IF 

(2) 001612 104405 GTSwR SIGET SOF T=SWR SETTINGS 

(2) 001614 000403 BR 71$ 

* Goren 112767 000001 177254 ye: MOVB #1,$AUTOB 7zSET AUTO-MODE INDICATOR 

(1) 001624 000417 BR 68$ “GET OVER THE ASCIZ 

(1) 3:69$: .ASCIZ <CRLF>*CZM9BCO mo$12 BOOT TERMR 8K*<CRLF> 

(1) 001664 68S: 

5988 001664 012700 007540 MOV #BUF 1, RO iCLR SIZING BUFFERS 

5989 001670 005020 83: CLR (RO) + 

5990 001672 020027 007624 CMP RO, #0C TRUS ;HAVE WE yGLEARED THE WHOLE 
5991 001676 002774 BLT 8$ “BUF FER,NO, GO ‘ 

5992 001700 005037 001116 CLR QAROMF IN S INITIALIZE ROM FOUND INDICATORS 
5993 001704 005037 003766 CLR aal IMES : INITIALIZE ENTRY COUNTER FOR PUTMES SUB 
5994 001710 004767 007020 JSR PC, CLEAR +CLEAR SOME MORE LOCATIONS 
5995 001714 013746 000004 MOV avERRVEC, -(R6) ‘SAVE CONTENTS OF LOCATION 4 
$996 001720 012737 001762 000004 MOV #23, aE RRVE ( :+SET UP FOR POSSIBLE TRAP 


CZM9BCO_M9312 BOOT TERMR 8k MACY11 eber 06-Nov-78 11: 18 b, AGE 61-6 
CZM9BC .P11 O06-NOV=78 11:15 VALUE FOR SOFTWARE SWITCH REGISTER 


122737 177777 165000 a, @#165000 :1F CONTENTS = =-1, OR TRAP 
00141 3$ [THEN CPU ROM NOT PLUGGED IN 
165000 #165000, RO :GET FIRST ADDRESS OF ROM SPACE 
: (RO)*+ :1F THIS INSTRUCTION TRAPS CPU ROM 
;NOT PLUGGED IN 


166000 #166000 ZHAVE WE CHECKED ALL ADDRESSES 
1$ :1F NO THEN CONTINUE L 
000007 @FROMF IN ;1F NO TRAPS 


000004 R6 
000004 @FERRVE ( 
000002 #2, RO 
001114 MOV @ATESTAD 
000200 : Ned @TESTAD 


177776 aTESTAD 


7 EQUAL ROM) 
CONF IN : TINUATION ROM FOUND INDICATOR 
ROMF IN :*SET ROM FOUND INDICATOR 
; *CONT INUE 
@FROMF IN SET ROM FOUND INDICATOR 
DEVF IN 
@ATESTAD 


@ATESTAD 


NCROMS 


CHECKS 3GO CALCULATE CHECKSUMS 
;ARE WE ON 1ST PASS 
:1F NO SKIP PROCESS OF PARAMETERS 
PROMP [GO PROCESS ROM PARAMETERS 
JSR a? SEQTST :GO CHECK SEQUENCE OF DEVICE CODES 
-SBTTL END OF PASS ROUTINE 


eer e eerie itr ir iii ir iit iit iti t ii titi iti i titty 
[INCREMENT THE PASS NUMBER ($PASS) 

>*TYPE ‘END PASS'' 

:*IF THERES A MONITOR GO TO IT 

:*IF THERE ISN'T JUMP TO RSTART 

:*IF IT IS DESIRED TO HAVE A BELL INDICATE THE “END OF PASS‘ LOCATION 
;*SENDMG CAN BE CHANGED TO 7. 


SEOP: 


NOP 
177012 $PASS 3: INCREMENT THE PASS NUMBER 
100000 LA | 5 aa chee Seg ALLOW A NEG. NUMBER 
+ . 


Ct tte Tete ae te Ee ee i i i et ee ee ee ee ee 
ke et as as =) td od 2 <3 2d — ss es LY) 
Ne Ne eee eee les ae ae a oe les 


SDOAGN es VES 
ort }* BOLI ZcRESTORE COUNTER 
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002213 TYPE DMG 23 TYPE "END PASS'' 
002210 TYPE : TYPE A NULL CHARACTER 
000042 $GET42: MOV :3GET MONITOR ADDRESS 
BEQ DOAGN 
RESET 
SENDAD: JSR 


$DOAGN: 
a(PC)+ 


$SRTNAD: T RSTART 


SENULL : 3sNULL CHARACTER STRING 


-1,-1,0 
SENDMG: <1§><{2>/END PASS/ 


6 ot ne 
FILO SS SS SSS SS STS Ct 
ee ee ee vs rr a a 


sNO ROMS TEST 

THIS ROUTINE IS CALLED ONLY IF NO ROMS WERE FOUND 

[DURING SIZING. IT DOES A READ OF ALL BOOTSTRAP ROM 
SADDRESSES AND COMPARES THE CONTENTS TO A KNOWN 
.sEXPECTED VALUE. 


NOROMS: TYPE , MNORM z- TYPE MESSAGE THAT NOROMS FOUND 
mov #172000, : GET FIRST ADDRESS TO BE READ 
1$: MOV @YNODATA [GET ADDRESS OF EXPECTED VALUE 
7+DOES RECIEVED VALUE EQUAL EXPECTED 
TIF YES CONTINUE TESTING 
5+GET BAD VALUE 
[IF NO SET ERROR INDICATER 
:REPORT ERROR 
:*GET TO NEXT EVEN ADDRESS 
OR ADDRESS? 


: IF YE 
SHAVE ALL ADDRESSES BEEN TESTED 
:1F NO GO TEST THIS ADDRESS 


NODATA: .WORD +A HOLE LOOKS LIKE XXx777 


3 CHECKSUM ROMS MODULE 
: THIS ROUTINE DOES A CHECKSUM OF ALL ROMS PRESENT 


002530 CHECKS: MOV ai, @#ROMCNT 
001116 BIT @4ROMCNT, @A4ROMF IN 


1$ 

002626 #165775, @ALASTAD 

002624 #0, @4EXCADD ; ON ADDRESS 

002622 #° 45000, @AF IRSTA ; RST ADDRESS TO BE SUMMED 
mc, CAL SUM ; ATE CHECKSUM 





ay M9312 BOOT TERMR 8k 
06-NOV-78 11:15 


6075 002360 013703 


CZM9BC ..P11 


6 
6107 
6108 


ee os od td 
$8 ah abideaoe 
ODWNAUS INNO 

NM 

Ww 

S 

> 


AXAKRAAAAAAOOW 


010246 
013700 


012602 


165776 


000062 


002622 


000020 


120001 
120001 


002624 


002626 


MACY11 "En es 


001116 


001110 
002622 
002624 
002626 


002622 


06-NOV-78 


ND OF PASS ROUTINE 


2$: ROL 


ROMCNT: O 


Nahi 


4 ot oe CHECKSUMS MODUL 
THIS ROUTINE CALCULATES THE CRC16 CHECKSUM OF THE CONTENTS 
“OF EVERY LOCATION EXCEPT THE FXCEPTION ADDRESS AND LAST ADDRESS 


SOF EVERY ROM 


CALSUM: MOV 
MOV 


LOOP: MOV 
MO 
CRCLOP: at 


es: CMP 


#120001, 
R4 
#120001, 
R1, 

R2 
CRCLOP 
RO, 
(RQ) + 
RO 


Loop 
(SP)+, 


D2 
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R3 
R4 


R2 
QF IRSTA 


- (SP) 
RO 


QFE XCADD 


@ALASTAD 
Re 


SEQ 0016 


GET EXPECTED CHECKSUM 

COMPARE CHECKSUMS 

:1F CHECKSUMS COMPARE CONTINUE 

SIF ERROR SET INDICATER 

[REPORT ERROR 

SET UP FIRST hon hae TO BE SUMMED 
7SET UP EXCEPTION ADDRESS 


:SET UP LAST ADDRESS TO BE SUMMED 
:GET ADDRESS OF GOOD D 
UPDATE ROM COUNTER 


:GET EXPECTED CHECKSUM 

; COMPARE CHECKSUMS 

:1F CHECKSUMS EQUAL CONTINUE 
iI ee dl INDICATER 


[UPDATE FIRST ADDRESS 

; UPDATE EXCEPTION ADDRESS 
ATE LAST ADDRESS 

SUPDATE ADDRESS OF GOOD DATA 

HAVE ALL ROMS BEEN CHECKED 

:1F NO GO CHECKSUM NEXT ONE 

IF YES RETURN 


sSAVE R2 

[GET STARTING ADDRESS 
tt CRC WORD 
GET A BYTE 


;SET BYTE COUNT 
; THE NEXT NINE LINES 
[DO THE MATH CALCULATIONS 


i? a i a AN EXCEPTION ADDRESS 
;1F YES SKIP ADDRESS 

;HAVE ALL LOCATIONS BEEN SUMMED 

;1F NO CONTINUE 

;RESTORE R2 


3 


* 
e 
. 
a 
o 
e 
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CZM9BC.P11 06=NOV=78 11:15 ND OF PASS ROUTINE SEQ 0017 
613) 002620 000207 RTS PC zIF YES RETURN 
6133 002622 000000 FIRSTA: 0 
6134 002624 000000 EXCADD: 0 
6135 002626 000000 LASTAD: 0 
6136 
6137 
6138 
6139 :PROCESS ROM PARAMETERS MODULE 
6140 :THIS ROUTINE DETERMINES IF S1ZING IS TO BE DONE. IF, i IS THE 
6141 *MODULE WILL GET THE PARAMETERS FROM THE DEVCOD AND PP 
6142 :MODULES AND ASSEMBLE MESSAGES TO BE OUTPUT. IF OT ING. ts 
6143 “NOT TO BE DONE THIS MODULE WILL TAKE THE PARAMETERS RECEIVED 
6146 SAND COMPARE THEM TO THE VALUES SUPPLIED IN THE ETABLE. 
6146 002630 105737 001157 PROMP: TSTB  a#SENVM zIF BIT IS CLEAR SIZE 
6147 002634 100424 BMI 1$ :IF BIT IS SET DON'T SIZE. 
6148 002636 004767 000250 JSR PC, DEVCOD :CALL DEVICE CODE MODULE 
6149 002642 004767 000570 JSR PC, PUTMES :FORMAT PARAMETER MESSAGE 
6150 002646 007634 MES1 
6151 002650 004767 000452 JSR ; PPF VAR :GO GET PSEUDO POWER-FAIL VECTOR ADDRESS 
6152 002654 032737 000040 001110 BIT #PFERR, @AROMERR ‘WAS THERE AN ERR 
6153 002662 001403 BEQ $ :IF NO GO FORMAT MESSAGE 
6154 002664 004767 001100 JSR PC, ERRHAN :1F YES GO REPORT MESSAGE 
6155 002670 000507 BR 9$ 
6156 002672 000540 10$: JSR PC, PUTME S :FORMAT PSEUDO POWER-FAIL VECTOR 
6157 002676 010234 MES2 SADDRESS MESSAGE 
6158 002700 005237 001112 INC @AME SSAG 7SET MESSAGE INDICATOR 
6159 000501 BR 9$ :GO TO EXI 
6160 002706 004767 000200 1$: JSR PC, DEVCOD :CALL GET DEVICE CODE MODULE 
6161 012703 007540 MOV #BUF 1, R3 *GET BOARD DEVICE CODES 
6162 002716 012704 001222 23: MOV #SDDWO, RG :GET ETABLE DEVICE CODE PARAMETERS 
6163 062703 000002 ADD #2, R3 [GET TO BOARD DEVICE CODE 
6164 002726 012402 3$: MOV (R4)+, R2 :GET ETABLE DEVICE CODE 
6165 002 020213 CMP R2, (R3) :DO THE TWO DEVICE CODES COMPARE 
6166 002732 001407 BEQ 4$ zIF YES GET NEXT BOARD DEVICE CODE 
6167 002734 005714 TST (R4) 7 IF NO HAVE WE CHECKED THE WHOLE ETABLE 
6168 002736 001373 BNE 3$ [IF WE HAVEN'T CHECK NEXT ETABLE ENTRY 
6169 002740 052737 01 001110 BIS #APTER1, @AROMERR [IF WE HAVE THEN DEVICE CODE ON BOARD 
6170 002746 004767 001016 JSR /‘ ERRHAN DOES NOT EXIST IN ETABLE 
6171 002752 062703 4$ ADD 3 :UPDATE TO NEXT ADDRESS 
6172 002756 005713 TST (R3) :IF CONTENTS EQUALS ZERO WE'RE DONE 
6173 002760 001356 BNE :IF CONTENTS NO EQUAL ZERO CONTINUE 
6174 002762 012703 001222 MOV #$DDWO R3 :GET BOARD DEVICE CODE 
6175 002766 012704 007536 S$: MOV ABUF 1-2, RG :GET ETABLE DEVICE CODES 
6176 002772 062704 000004 6$: ADD #6 RS T BOARD DEVICE COD 
6177 002776 021314 CMP (R3), (R4) =DO THE TWO DEVICE CODES 
6178 003000 001407 BEQ 7$ :IF YES GET NEXT ETABLE DEVICE CODE 
6179 003002 005714 TST (Re) :1F NO HAVE WE CHECKED 
6180 003004 001372 BNE :DEVICE CODES, IF NO 
6181 003006 052737 000002 001110 BIS HAPTER @AROMERR sIF YES E TABLE DEVICE CODE NOT 
6182 003014 004767 000750 JSR “ ERRHAN =NO 
6184 003020 062703 000002 7$: ADD #2 R3 
6185 003024 005713 TST (R’) :IF CONTENTS EQUAL ZERO-DONE 
6186 003026 001357 BNE 5$ :I1F CONTENTS NO EQUAL ZERO=fONTINUE 
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C2M9BC.P11 BEONOVETE 11:15 END OF PASS ROUTINE SEQ 0018 
6187 003030 004767 000272 JSR PC PPF VAR :G0 GET PSEUDO POWER-FAIL VECTOR ADDRESS 
6188 003034 013704 001212 MOV @4SBASE , RG [GET ETABLE PPF V 
6189 003040 013703 907620 MOV @ABUF 2, R3 GET BOARD PPFV. 

6190 003044 020403 CMP R4, R3 O THE TwO PARAMETERS COMPARE 
6191 003046 001405 BEQ 8$ at: YES CONTINUE 
6192 003050 052737 000004 001110 BIS WAPTERS, @AROMERR ‘SET APT ERROR INDICATOR 
6193 003056 767 000706 JSR ERRHAN :GO TO ERROR ROUTINE 
6194 003062 013704 001216 8$: MOV orécDwl R4 :GET ETABLE DATA 
6195 003066 013703 007622 MOV QABUF 2+2, R3 [GET BOARD DAT 
6196 003072 020403 CMP R4, R3 =DO THE TWO PARAMETER COMPARE 
6197 003074 001405 BEQ 9$ SIF YES THEN DONE 
6198 003076 052737 000010 001110 BIS HAPTERG, @AROMERR ‘SET APT ERROR INDICATOR 
6199 003104 004767 000660 JSR PC, ERRHAN ‘GO TO ERROR ROUTINE 
6200 003110 000207 9$: RTS PC 
6202 ;GET DEVICE CODES MODULE 
6203 THIS SUBROUTINE LOCATES EACH DEVICE CODE AND PASSES IT AND THE 
6204 * ADDRESS IN WHICH IT WAS FOUND BACK TO THE a aie ROUTINE. 
6205 DATA iS STORED IN BUFFER ‘BUF1'’ IN THIS FORMAT 
6207 BUF 1: ADDRESS OF FIRST DEVICE CODE 
6208 DEVICE CODE 
6209 : ADDRESS OF SECOND DEVICE CODE 
6210 : DEVICE CODE 
6211 : 
6212 * 
6213 : . 
6214 : ‘ 
6215 : ADDRESS OF NTH DEVICE CODE 
osi¢ : DEVICE CODE 
esis 3+CONTINUATION ROM DATA IS STORED IN ‘BUFI'' AS FOLLOWS: 
+ 
6220 i+ - 
6221 i+ i" 
6222 3% CONTINUATION CHIP IDENTIFIER (ALWAYS A +1) 
6223 i+ DEVICE CODE (PREVIOUS ROM'S DEVICE CODE.OR -1 IF ILLEGAL ROM) 
6225 3¢ ‘ 
6226 t+ 
6227 ; IF DIAGNOSTIC ROM PRESENT IT WILL BE THE FIRST DEVICE CODE. 
6228 * THERE IS ROOM FOR uP TO 12 DEVICE CODES IN TEMP 
6229 003112 012700 007540 DEVCOD: MOV #BUF 1, RO 
003116 012701 000001 MOV #1, RI : INITIALIZE ROM POINTER 
6231 003122 030137 001116 BIT R1. @AROMF IN [1S DIAGNOSTIC ROM PRESENT 
6232 003126 001411 BEQ 1$ SIF NO GO TEST BOOT ROMS 
6233 003130 012737 165774 003322 MOV #165774, aa#TESTAD [GET ADDRESS OF DIAG. ROM DEVICE CODE. 
34 003136 013720 003322 MOV @*TESTAD, (RO) + SSTORE ADDRESS OF DEVICE CODE 
6235 003142 017720 000154 MOV aTcSTAD, (RO) s :STORE DEVICE CODE 
003146 005037 003324 CLR a*DAF LAG SCLR DATA TYPE FLAG 
6237 003152 013737 001114 003322 1$: MOV awF IRSTR, aATESTAD [GET ADDRESS OF FIRST BOOT ROM 
6238 003160 004101 ROL R1 [UPDATE POINTER TO NEXT ROM 
6239 003162 030167 006744 3$: git R1, DEVF IN i+1S DEVICE ROM PRESENT 
6240 003166 001007 BNE 4$ SIF YES GO GET P. 
6241 003170 767 JSR Po CON1 +CHECK FOR CONTINUATION CHIP 


67 005556 ‘ ‘ : 
6242 003174 062737 000200 003322 ADD #200, a#TESTAD :I1F NO UPDATE TEST ADDRESS 


CZM9BCO bale BOOT TERMR 8k 
CZM9BC P11 
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022737 


11:15 


003324 


170177 


000200 
005476 


003324 
003322 


173024 
173000 
003426 
005446 
173224 
173224 


000040 


003322 


003322 


174000 


173024 
006560 


007620 
007622 


173224 
006520 


007620 
007622 


001110 
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UPDATE POINTER TO NEXT ROM 
9$ :GO SEE IF ALL ROM CHECKED 
4$: :1F DATAFLAG=0 THEN DATA IS DEVICE CODE 
5$ SIF DATAFLAG=1 THE DATA IS OFFSET TO NEX 
(RO)+ SSTORE ADDRESS OF DEVICE CODE 
(RO) + STORE DEVICE CODE 
@A4TESTAD :UPDATE TEST ADDRESS 


3 W_AD 
:SSAVE ONLY BITS 7, 8. 9,10,11 
+IN R3 ALSO 
: CALCULATE DISTANCE BETWEEN ADD 
31S R3 EQUAL TO 0 


SIF YES THEN DONE 

IF NO THEN MOVE POINTER 

ONE BIT FOR EVERY 200 
:+CHECK FOR CONTINUATION CHIP 


6 
8$: ! : CHANGE DATA FLAG TO RIGHT DATA TYPE 
9$: #174000 sHAVE WE CHECKED ALL THE ROM 
3$ :1F NO CONTINUE 
IF YES RETURN 


TESTAD: 0 
DAFLAG: 0 


GET PSEUDO POWER-FAIL VECTOR ADDRESS ROUTINE 

THIS SUBROUTINE TESTS LOCATIONS 173024 AND 173224 TO yas 
WHICH VECTOR WILL BE USED IF POWER-FAIL OPTION ENABLED THE 
;BOARD. D AND AT LEAST ONE ADDRESS 

; AN ERROR WILL BE DETECTED. 

TH DATA WILL BE RETURNED IN 'BUF2"* IN THE FORMAT. 


BUF2: PSEUDO POWER-FAIL VECTOR ADDRESS 
CONTENTS OF VECTOR ADDRESS 


: CMP #173000, 04173024 :7_TEST IF LOCATION 173024 SELECTED 
BEQ 1$ :1F NOT THEN GO TEST LOCATION 173224 
:+SET UP AN ALTERNATE RETURN 
:+CHECK FOR A HOLE 
@ABUF 2 :1F IT IS THEN STORE ADDRESS 
@ABUF 2+2 : STORE Mag OF LOCATION 173024 


B4173224 :-TEST_IF LOCATION 173224 SELECTED 
:1F NOT THEN SET ERROR INDICATOR 
:+SET UP AN ey TE RETURN 
:+CHECK FOR A HOLE 

@ABUF 2 :1F IT IS THEN STORE ADDRESS 

QABUF 2+2 [STORE CONTENTS OF VECTOR 
[GET OVER ERROR 

@AROME RR SET ERROR INDICATOR 
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;PUT MESSAGE IN BUFFER ROUTINE 
: THIS SUBROUTINE FORMATS THE PARAMETER AND POWER-FAIL MESSAGES. 


PUTMES: MOV a(R6), R4 GET MESSAGE BUFFER ADDRESS 
TST a4TIMES 71S THIS FIRST TIME THROUGH 
3$ :1F NOT FIRST TIME THEN FORMAT POWER- 
FAIL MESSAGE 


003766 @4TIMES : TOGGLE WATCHDOG 
007540 #BUF 1 [GET DATA BUFFER ADDRESS 
165774 #165774, 21S DIAGNOSTIC ROM PRESENT 

1$ :1F NOT DON'T FORMAT DIAG. ROM MESSAGE 
006616 #DRHEAD, R IF IT IS GET DIAG. ROM MESSAGE HEADER 
000714 Pl, [GO PUT HEADER IN MESSAGE BUFFER 


#2 ;SKIP OVER ADDRESS OF ASCII 

(R3) FORMAT ASCII FOR MESSAGE 

(R3)*, “PUT ASCII IN MESSAGE BUFFER 
+ 


:GO PUT BOOT ROM HEADER IN MESS. BUF. 


:+POINT TO DIAGNOSTIC ROM 

. :+POINT TO MSG TABLE 

RE TURN :+SET UP AN ALTERNATE RETURN 

FINISH :+SET UP ANOTHER ALTERNATE RETURN 
PUT A CR/LF HERE 


ROMT YP FIND THE ROM TYPE 
GET FIRST ENTRY POINT 
:GO CONVERT OCTAL TO ASCII 
:GO PUT ENTRY POINT IN MESSAGE BUF 


GET SECOND ENTRY POINT 
:GO CONVERT OCTAL TO ASCII 
:GO PUT ENTRY POINT IN MESSAGE BUF. 


PUT TAB IN HERE 

UPDATE DATA BUFFER ADDRESS 
FORMAT ASCII FOR MESSAGE 
:MOV ASCII TO MES1 


:GO_BACK TO START OF LOOP 

:GET DATA BUFFER ADDRESS 

GET POWER-FAIL HEADER ADDRESS 

:GO PUT POWER-FAIL HEADER IN MESSAGE BUF 


~~ os 
Rononorye 
N 

NN — 

i 


ad ad C) ad ad 
fMOoNnon 
N 


Oo 
Nm 
=—M 


sARE WE DONE 
:1F YES THEN GO RETURN 
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000640 
000466 


000002 


010334 
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175074 


175060 


000264 


175006 
174776 
000010 


ND OF PASS ROUTINE SEQ 0021 
OCADD :GO CONVERT OCTAL TO ASCII 
F ILBUF 
R3 UPDATE DATA ye ADDRESS 
:GO_ BACK TO START OF LOOP 
its :PUT A CR/LF AT END OF MESSAGE 
+ 
PUT ZERO TERMINATOR AT END OF MESSAGE 
6$ :GET MESSAGE BUFFER ADDRESS 


GET OVER MESSAGE BUFFER ADDRESS 


ERROR HANDLER ROUTINE 
Ao SUBROUTINE FORMATS THE ERROR MESSAGES THE TYPES THEM 


ERRHAN: SAVREG 
MOV 


R4 
; INCREMENT ERROR COUNTER 
aSwWR ;BELL ON ERROR 

;BRANCH IF NO 


@aSWR ; INHIBIT ERROR TYPEOUT 
; NO GO THROUGH 


2GE T ERROR CODE 


; ABLE 
CBI USED TO STOP STEPPING THROUGH TAB 
:ROTA TE ERROR CODES 

:1F C-BIT SET STOP STEPPING 

R1 iF mY CLEAR STEP TO NEXT HEADER 

R5 PUT HEADER ADDRESS IN REGISTER. 

F ILBUF :GO PUT HEADER IN ERROR MESSAGE BUF . 


#PFERR, ROMERR :+1S i! A Mad ol ERROR? 
8$ ; BRANCH 

#3600, ROMFRR :+1S IT A searsT’ ERROR? 
14% H IF NO 


ARG2, 13% 
ARG], R5 ° 
PC, F ILBUF :+PUT DATA INTO BUFFER 
¢. ;+CONTAINS CR OR HT 

-+ 
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6411 032737 000023 001110 148: ° @4ROMERR :+1S ERROR A CRC, APTER1 OR APTER2 
6412 1424 7$ iI NO GO FORMAT APTER3, APTER4 


900020 001110 @4ROMERR OR CRC 

$ F_NO FORMAT APTER1, APTER2 
002530 RO COUNT _ 
006524 OMNUM R1 


1 
1 
1 
1 
1 
1 


GE R TABLE 
:C-BIT USED TO STOP STEPPING THROUGH TAB 
006000 : ‘ROTATE ROM NUMBER 
6419 :IF C-BIT SET STOP STEPPING 

06270 :IF C-BIT CLEAR STEP TO NEXT HEADER 
= CONTINUE STEPPING 
:PUT ROM NUMBER IN ERROR MESSAGE BUF 


:GO_TO END OF ROUTINE 
PUT BAD DEVICE CODE IN ERROR MESS. BUF. 


:GO_TO END OF ROUTINE 

GET SAVED EXPECTED VALUE 

:GO COVERT OCTAL TO ASCII 

:GO PUT DATA IN ERROR MESSAGE BUF . 


10(R6), GET SAVED RECEIVED VALUE 
PC, :GO COVERT OCTAL TO ASCII 
PC, :GO PUT DATA IN ERROR MESSAGE BUFFER. 


ACR, PUT CR/LF AT END OF MESSAGE 


ALF, 
#0, :PUT TERMINATOR AT END OF MESSAGE 
SENV ON APT 
OVER2 
JMP OVER11 
001116 OVER2: @AROMF IN 
BN ; ~IF NO BRANCH 


1005 AROUND 3 
032737 601110 APFERR , @M#ROMERR z:~ NOW IF YES ,IS POWER- 
i- FAIL VECTOR THE ERROR???? 
001401 BEQ AROUND ;~ YES ,WELL THEN IT'S 
000405 :~ NOT A REAL ERROR ., CONTINUE 
AROUND: JSR PC $ATY1 :GO REPORT ERROR 


OVERS: 
> THEN HALT 
OVER11: $ATY3 :1F NOT ON APT JUST REPORT ERROR 


174534 OVERI0: BIT . aSwR 1S HALT ON ERROR SET 
12$ 7 IF NO SKIP OVER HALT 


12$: CL ;CLEAR ERROR FLAGS 


§ 


WIWWIWG WWWWAWAN AW 
REBIAEERMANNRS 3 


EHEADT: 


eee REPEREEEREEEES SF 


a 
BNO 


CRCMSG 
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FILL BUFFER ROUTINE 
THIS SUBROUTINE FILLS THE MESSAGE BUFFER WILL ASCII 
; CHARACTERS. 


022776 000011 000000 FILBUF: CMP a(R6) FIRST CHARACTER A TAB OR CR 
001003 BNE ‘n THEN GO PUT CR/LF_ IN BUFFER 


000071 (R4)+ HEN PUT TAB IN BUFFER 


RR 2 © 
000015 1$: (R4)+ :MOV CR/LF TO BUFFER 
00012 LF. (R4)+ 
2$: MOVB (R4)+ PUT A CHARACTER IN MESSAGE BUFFER 
5) 31S NEXT CHARACTER ZERO 
:1F NOT PUT IT IN MESSAGE BUFFER AND GET 

000002 (R6) ;UPDATE RETURN POINTER TO GET OVER CHARA 

C THEN RETURN 


sOCTAL TO ASCII CONVERSION ROUTINE 
: THIS SUBROUTINE TAKES A SIXTEEN BIT OCTAL NUMBER AND 
CONVERTS IT TO 6 ASCII CHARACTERS 


007624 OCASC: #OCTBUF , RO :GET BUFFER ADDRESS 
C (RQ)+ CLEAR BUFFER 


007624 RO GET BUFFER ADDRESS 
004556 3 a4 TEMP :GET OCTAL van 
:CLEAR CARRY 
004556 ;ROTATE BIT INTO CARRY BIT 
sROTATE aot BIT INTO BUFFER 
000060 : (RO) SMAKE IT ASCII 
RO fen. BUFFER AD DRESS 
007632 MP #OC TBUF +6 HAVE WE CONVERTED ALL THE NUMBER 
2$ IF NO CONTINUE 
007624 MO s, R5 iTF YES PUT BUFFER ADDRESS IN REGISTER 


: RE TURN 
004556 :ROTATE BIT INTO CARRY BIT 
004556 ;ROTATE CARRY BIT INTO BUFFER 


004556 


Nong 


Wei & & 


*GO TO START OF LOOP 
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; THIS ROUTINE IS CALLED BY THE PUT MESSAGE ROUTINE TO GET THE RIGHT 
[VALUE IN R3 SC THE OCTAL TO ASCII ROUTINE GETS THE RIGHT NUMBER. 


OCADD: R3 -(R6) sSAVE THE VALUE OF R3 

(R3), R3 :PUT THE DATA TO BE CONVERTED IN 83 
PC, OCASC :GO CONVERT OCTAL TO ASCII 

(R6)+, R3 “RESTORE R3 

PC RETURN 


-SBTTL TYPE ROUTINE 


BOOSIE IIIS UII IOIDISIIOIIIOIOIOIOIOIUIUIIOIUIOIIOIUIIUIIOIOIIII Itt 

 SROUT INE TO TYPE ASCIZ MESSAGE. aS ar ae MUST TERMINATE WITH A O BYTE. 

:*THE ROUTINE WILL INSERT A NUMBER OF L_ CHARACTERS AFTER A LINE FEED. 
:*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
i*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

> *NOTE 3: $SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


s*CALL: 

:*1) USING A TRAP INSTRUCTION 
3* TYPE »MESADR 3zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
TYPF 


105767 2 $TPFLG 21S THERE A TERMINAL? 
10000 BP 1$ 2 BR IF YES 
HALT HERE IF NO TERMINAL 
3$ ;sLEAV VE 
$ RO,-(SP) ; E RO 
000002 @2(SP) ,RO 3:GET ADDRESS OF ASCIZ STRING 
000001 174334 MAPTENV, SENV : ¢ RUNNING IN APT MOD 
BNE 62$ =NO,GO CHECK FOR APT CONSOLE 
000100 174325 #APTSPOOL ,SENVM ::SPOOL MESSAGE TO APT 
62$ :2NO,GO CHECK FOR CONSOLE 
000004 RO.61$ 33 SETUP MESSAGE ADDRESS FOR APT 
000234 J PC, $ATY3 APT 


. WORD 
000040 174303 #APTCSUP ,SENVM 
BN 60$ 


(RO) +,=(SP) co rms, TO BE TYPED ONTO STACK 
4$ BR If IT ISN'T THE TERMINATOR 

(SP) + SIF TERMINATOR POP IT OFF THE STACK 
(SP)+,RO ‘ IRESTORE RO 

#2, (SP) : RETURN RETURN PC 


ne 7 7BRANCH IF <HT> 


(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
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122716 000200 ACRLF , (SP) ; BRANCH IF NOT <CRLF> 
001006 5$ 


(SP) + ;POP_ <CR><LF> a 
TYPE A CR AND L 


ee ; ;s CLEAR CHARACTER COUNT 


PC, S$TYPEC 
SFILLC, (SP)+ 
$ GO GET 


2 Se NEXT CHAR. 
SNULL ,- (SP) ; OF FILLER CHARS. NEEDED 
HE NULL CHAR. 


1(SP) S_A NULL NEED TO BE TYPED? 

6$ ; :7R IF “wt POP THE NULL OFF OF STACK 
PC,$TYPEC ;GO TYPE A NULL 

—— DO NOT COUNT AS A COUNT 


;HORIZONTAL TAB PROCESSOR 


8$: #* ,<SP) ea i. oy WITH SPACE 
9$: PC, $TYPEC 2c TYPE A SPACE 

#7, SCHARCNT : sBRANCH IF NOT AT 

9$ f3 STOP 


(SP) + ; POP hey OFF STACK 
BR 2$ GET NEXT CHARACTER 
STYPEC: asTPsS Z:WAIT UNTIL PRINTER IS READY 
BP STYPEC 
2(SP) ,a$TPB ;:LOAD CHAR TO BE TYPED INTO DATA REG. 
aaa 21S ee ie A CARRIAGE RETURN? 


: :VES“-CLEAR CHARACTER COUNT 
1$: MPB ALF ,2(SP) 3338 CHARACTER A LINE FEED? 
STYPEX CH_IF YES 


INCB (PC) + SSCOUNT THE CHARACTER 
$CHARCNT : . WORD SZ CHARACTER COUNT STORAGE 
$TYPEX: RTS PC 


177564 :-TTY PRINTER STATUS REG. ADDRESS 
77566 2: TTY PRINTER BUFFER REG. ADDRESS 
;: CONTAINS NULL CHARACTER FOR FILLS 
CONTAINS # OF 4 ey CHARACTERS woe 
:3 INSERT FILL CHARS. AFTER A * 
33° ‘TERMINAL AVAILABLE’* FLAG (BIT<O7>=0-YES) 
STION MARK 


<15> : ¢ CARRAIGE RETURN 
CIZ_ <12> ; sLINEFEED 
APT COMMUNICATIONS ROUTINE 


SIRO UIIIUIIIDIIUISIDICUIIIDIIUISIOIIUIDIUIUIDIDIOIOIOIDIIOIDIDIUIOIDIISIUIIOIIOIIOIUIO I itot 
000001 000236 TY1: MOVB #1 ,SFFLG 72TO REPORT FATAL ERROR 
000001 000226 $ATY3: _ owe 32TO TYPE A MESSAGE 
000001 000220 ree MOVB #)  SFFLG ::TO ONLY REPORT FATAL ERROR 


i i i i i i i i di i i ha a hh hh a nee 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
5 
( 
( 
( 
( 
( 
( 
( 


So anf) Be 2 a hh 9 2 Sh oh a a a hh 9 2 oh oh oh oh a ot ot ot th ot ot 





annRA 
WW 


Ww St St) SS) SS 4) SS YS SS 3 oS a 
aS Se SS SS SS SS SS SS Ss Ss SS 


SRISVFSSESESRVSS 


esssessessassesaae - 
S28 


i i da a 


oe M9312 BOOT TERMR 8k 
06-NOV-78 11:15 


000002 
173750 
173756 


173746 
173742 
000004 


000002 
172534 
177326 


174020 
174011 


000004 


173716 
000016 
000004 


RO,-(SP) 
R1,-(SP) 
SMFLG 


#APTENV , SENV 


#APTSPOOL , SENVM 


a4 (SP) ,RO 
#2,4(SP) 
SMSCTYPE 
RO, $MSGAD 
(RO) + 
2$ 
SMSGAD RO 


R 
RO, $MSGLGT 
#4 ,SMSGTYPE 


a4 (SP) 4% 
#2,4(SP) 
177776, -(SP) 
PC. STYPE 


SFFLG 
12$ 
SENV 


12$ 

$SMSGTYPE 

11$ 

@4(SP) ,SFATAL 
#2,4(SP) 
SMSGTYPE 


SFFLG 
SLFLG 


LG 
(SP)+,R1 
(SP) +,RO 
PC 
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3ZPUSH RO ON STACK 
37PUSH R1 ON STACK 
8 Ga TYPE A MESSAGE? 
;1F NOT: BR 
: OPERATING UNDER APT? 
7 IF NO BR 


<3 SHOULD. SPOOL MESSAGES? 
:2IF NOT: BR 
32GET MESSAGE ADDR. 
BUMP RETURN ADDR. 
::SEE IF BONE y LAST XMISSION? 
22 PUT ADDR IN. MAILBOX 
FIND END OF MESSAGE 


23 SUB START OF MESSAGE 


SITELL APT TO TAKE MSG. 


zzPUT MSG ADDR IN JSR LINKAGE 
“BUMP RETURN ADDRESS 

7 PUSH 199776 ON STACK 

*:CALL TYPE MACRO 


+4 REPORT FATAL ERROR? 
3 ;RUNNING UNDER APT? 
:SFINISHED LAST MESSAGE ? 
>iGET NERROR 7 

URN ADDR. 


;BUMP RET 
7: TELL APT TO TAKE ERROR 
CLEAR —s FLAG 


SMFLG: .BYTE 0 
SLFLG: .BYTE 9 
SFFLG: .BYTE 0 
EVEN 
APTSIZE=200 


TIFATAL FLAG 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


St oh 2 Ss WWI 9 Ss Ss SS Ss SS St Ses 


rN Ne ee ee eee ee ae eee le ae ae eae es 


-SBTTL TTY INPUT ROUTINE 


EPIC ree eer reir iii i iii titi tii tt iit tt tt ttt tt 
177560 3 -WORD 177560 :zTTY KBD STATUS 
177562 ; 177562 ii 7TY KBD BUFFER 


OO 
~~ ss aa 





: i i ne ta 
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CZM9BC..P11 O€=NOV=78 11:15 Y INPUT ROU SEQ 0027 
(2) FARRAR AAARERAAERERARAERERERRERRERERRAEAAEREREERRRRRRREHERREKKKEE 
(1) : #SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

(1) ROUTINE IS EN NTERED FROM THE TRAP HANDLER, ANC WILL 
(1) SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
(1) WHEN OPERATING IN TTY FLAG MODE. 
(1) 005344 022767 000176 173532 $cKSUR : CMP #SWREG, SWR :31S THE SOFT~SWR SELECTED? 
(1) 005352 001074 "BNE 1 “BRANCH IF NO 
(1) 005354 105777 177760 TSTB  =s-_ @STKS i CHAR THERE ? 
(1) 005360 100071 BPL 15$ : IF NO, DON'T WAIT AROUND 
(1) 005362 117746 177754 MOVB  a@$TKB,-(SP) ':SAVE THE CHAR 
(1) 005 042716 177600 BIC #°C177, (SP) ieSTRIP-OFF THE ASCII 
(1) 005372 022726 000007 CMP #7, (SP)+ :IS IT A CONTROL G? 
(1) 005376 001062 8NE 156 ‘ZNO, RETURN TO USER 
(1) 005400 126727 173474 000001 CMPB —s- $AUTOB, #1 :zA°E WE RUNNING IN AUTO-MODE? 
(1) 005406 001456 BEQ 15$ tb.~ANCH IF YES 
( 
(1) 005410 104401 006071 TYPE -SCNTLG :sECHO THE CONTROL~G (*G) 
(1) 005414 104401 006076 $GTSWR: TYPE »SMSWR : TYPE CURRENT CONTENTS 
(2) 005420 016746 172552 MO SWREG, = (SP) : SAVE SWREG FOR TYPEOUT 
(2) 005424 104402 TYPOC 0 TYPE =~OC TAL ASCIICALL DIGITS) 
(1) 005426 104401 006107 TYPE /SMNEW ‘PROMPT FOR NEW SWR 
(1) 005432 005046 19$: CLR =(SP) ::CLEAR COUNTER 
(1) 005434 005046 CLR -(SP) >: THE NEW SWR 
(1) 005436 105777 177676 7$: TSTB ~—s_ aSTKS * CHAR THERE? 
a 005442 100:75 BPL 7$ +: IF NOT TRY AGAIN 
(1) 117746 177672 MOVB  a@$TkB,-(SP) :sPiCK UP CHAR 
1) 042716 177600 BIC #°C177, (SP) ZiMAKE IT 7-BIT ASCII 
1) 
(1) 
(1) 021627 000025 9$: CMP (SP) #25 iis IT A CONTROL-U? 
(1) 001005 BNE 10$ : CH IF NOT 
(1) 104491 006064 TYPE /SCNTLU :YES, ECHO CONTROL-U (*U) 
(1) 062706 000006 208: ADD #6,SP GNORE PREVIOUS INPUT 
CM) 005472 000757 BR 19$ SILT! S TRY IT AGAIN 
) 
(1) 
(1) 005474 0216.7 000015 10$: CMP (SP) #15 iis IT A <CR>? 
(1) 005500 00102. BNE 16$ CH IF NO 
(1) 005502 005766 000004 TST 4 (SP) ‘YES, IS IT THE FIRST CHAR? 
(1) 005506 001403 BEQ 11$ 3: CH IF YES 
(1) 005510 016677 000002 173366 MOV 2(SP) ,aSWR t: SAVE NEW SWR 
(1) 005516 062706 000006 11$ D #6,SP ':CLEAR UP STACK 
(1) 005522 104401 905067 14$: TYPE CRLF ::ECHO <CR> AND <LF> 
(1) 5526 126727 173347 000001 CMPB sss S$ INTAG, #1 : RE-ENABLE TTY KBD INTERRUPTS? 
(1) 005534 001003 BNE 15 3: CH IF NOT 
(1) 005536 012777 000100 177574 MOV #100, a$TKS + RE-ENABLE TTY KBD INTERRUPTS 
(1) 005544 000002 15$: RTI 7 RETURN 
(1) 005546 004767 177234 16$: JSR PC, $TYPEC ::ECHO CHAR 
(1) 005552 021627 000060 CMP (SP) , #60 *:CHAR < 0? 
(1) 005556 002420 BLT 18% “BRANCH IF YES 
(1) 005560 021627 000067 CMP (SP) ,467 iECHAR > 7? 
(1) 005564 003015 BGT 18$ “BRANCH IF YES 
(1) 005566 042726 000060 BIC ac, (SP)+ +: STRIP=OFF ASCII 
(1) 005572 005766 000002 TST 2(SP) *°1S THIS THE FIRST CHAR 
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i. i IF YES 
. SHIFT PRESENT 
“CHAR OVER 


_) 


000002 17$: 2(SP) 
177776 aes - (SP) 


005066 18$: SQUES : 
20$ : SIMULATE CONTROL-U 
.DSABL LSB 


SERRA EERE ERE EERE EE 


SS THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


7*CALL: 
i+ RDCHR ; INPUT A_SINGLE CHARACTER FROM THE TTY 
RETURN HERE S SCHARACTER IS_ON THE STACK 

:sWITH PARITY BIT STRIPPED OFF 


(SP) ,-(SP) 7zPUSH DOWN THE PC 
000004 MO 4(SP) ,2(SP) “SAVE THE PS 
177476 : a$TKS SO UAIT FOR 

BP 1$ *A CHARACTER 
177472 00000 @$TKB, 4 (SP) ::READ THE TTY 
177600 wc 77> 4(SP) ::GET RID OF JUNK IF ANY 
000004 000023 MP 4(S°) #23 t:IS IT A CONTROL-S? 

BN 3$ 23 CH IF NO 
177444 : a$TKS ;:WAIT FOR A CHARACTER 

BP 2$ SLOOP UNTIL ITS THERE 
177440 a$TKB,-(SP) ::GET CHARACTER 
177600 #°(177, (SP) *:MAKE IT 7-BIT ASCII 
000021 MP (SP)+,4#21 ::1S IT A CONTROL-Q? 

2$ ::1F NOT DISCARD IT 

BR 1$ 2 EYES, RESUME 

000004 : 4 (SP) .#140 1S sit, UPPER. CASE? 


+ [BRANCH 
000004 4 (SP) #175 HITS i A SPECIAL CHAR? 
000040 #40,4(SP) MAK MAKE IT UPPER CASE 
4$: ::GO BACK TO USER 


SRA EERE EERE ERE REAR RARER ERE REE ERE EERE ERE REER ERE EK 


te ROUTINE WILL INPUT A STRING FROM THE TTY 


;*CA 
RDLIN :¢ INPUT A STRING FROM THE T 
RETURN HERE fe tate OF FIRST CHARACTER “att BE ON THE STACK 
22 TERMINATOR WILL BE A BYTE OF ALL O'S 


$RDLIN: R3,-(57) 43a R3 
1$: MO #$TTYIN AS ;GET ADDRESS 
2s: #STTYINe*&. R35 + :BUFFER FULL? 
4$ :2BR IF YES 
3GO READ a CHARACTER FROM THE TTY 
(SP)+,(R3) CTER 


10$: MPR #°77,(R3) 
3$ 


me tk td 2 8 SS SS 2s 6s 4) «3 an fl) 2 SS 2) Sh) Sh 2 oh 2 sh oh 6 hh oh oh ot SS os os os ss a PU FS SS a 
ee NN Ne Ne ee ee ee eee eee ee ee ee eee ee el eee ele ae ea ae aa a a oO 
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»SKIP IF NOT 
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005066 4$: $QUES TYPE A_*?' 
BR SCLEAR THE BUFFER AND LOOP 
3$: MOVB (R3) ,9$ 7 sECHO THE CHARACTER 


9 
#15, (R3)+ 23 CHECK FOR RETURN 
BN $ LOOP IF NOT RETURN 
177777 -1(R3) 7:CLEAR RETURN (THE 15) 
005070 -SLF 73 TYPE A_LINE FEED 
(SP)+,R3 sRESTORE R3 
(SP) ,=(SP) ; SADJUST THE STACK AND PUT ADDRESS OF THE 
000004 000002 4(SP) ,2(SP) 33 FIRST ASCII CHARACTER ON IT 
006054 000004 M$TTYIN,4(SP) 


7 RETURN 
9$: P 0 4 ep FOR ASCII CHAR. TO TYPE 
.B 0 RMINATOR 
$TTYIN: .BLKB 8. + RESERVE 8 BYTES FOR TTY INPUT 
000 $CNTLU: . /*U/<15><12> SI CONT ROL ‘U"' 
000012 $CNTLG: . /*G/<15><12> sCONTROL ‘'G'' 
020122 $MSWR: .ASCIZ <15><12>/SWR = /- 
053505 S$MNEW: .ASCIZ / NEW = / 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


000044 
006052 
000015 


LER E RR ERRKEEERKEEKRREEREE REE RR ERR REE REE KEE 
[*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
S*OCTAL (ASCII) NUMBER AND TYPE IT. 
: *$1YPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
:* MOV NUM, =(SP) : NUMBER TO BE TYPED 
TYPOS S=CALL FOR TYPEOUT 

.BYTE ON SIN=1 10 6 FOR NUMBER OF DIGITS TO TYPE 


* "BYTE M + OM=1 

:* ::1=TYPE LEADING ZEROS 

:* tZ0=SUPPRESS LEADING ZEROS 
** 


>*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
» Ary OR $TYPOC 


~~. NUM, = (SP) : ;NUBER TO BE TYPED 
‘CALL FOR TYPEOUT 


{s$1YPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
*CALL: 

i MOV NUM, - (SP) > NUMBER TO BE TYPED 
ie TYPOC += CALL FOR TYPEOUT 


$TYPOS: MOV a(SP) ,~(SP) : PICKUP THE MODE 
MOVB 1(SP) , SOF ILL ;LOAD ZERO FILL SWITCH 
MOVB P ‘NUMBER OF DIGITS TO TYPE 
ADD : SP) S TADJUST RETURN ADDRESS 


BR 
$TYPOC: MOVB 4473 THE ZERO FILL SWITCH 
MOVB #6, 22SET FOR SIX(6) DIGITS 
$TYPON: MOVB #> SOCNT 32SET_ THE ITERATION COUNT 
MOV R3,-(SP) : E R3 


Sts 
SABER 
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3 SS Sh SS Ss 4 1 SY SS SS ss SS) 2s SS 3 SS os Sh sa PJ SO BF Ss OS Sh hh hs ss a 
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aa 
RAS 
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R4,-(SP) 73SAVE R4 
R5,-(SP) 33 SAVE_R5 
saat at 7-GET THE NUMBER OF DIGITS TO TYPE 


R 
#6,R4 ae ate he FOR MAX. ALLOWED 
R4 , SOMODE 3zSAVE IT FOR USE 
SOF ILL ,R4 33GET THE ZERO FILL SWITCH 
000012 12(SP) ,R5 3¢PICKUP THE INPUT NUMBER 
R3 3zCLEAR THE OUTPUT WORD 
ROTATE MSB INTO ‘‘C’' 
+260 DO MSB 
32FORM THIS DIGIT 


: L R :GET LSB OF THIS — 
000076 : :i TYPE. ey DIGIT 


BP $ 
177770 f . 23GET RID OF JUNK 
4$ 22 TEST FOR 0 


ae oe THIS 0? 


IF YES 
>:DON'T SUPPRESS ANYMORE 0'S 
2 ¢MAKE THIS DIGIT ASCII 


YP 

3360 TYPE THIS DIGIT 
[COUNT BY 1 

;3BR IF MORE TO DO 


;3BR_IF DONE 
; INSURE LAST DIGIT ISN'T A BLANK 
#60 DO THE LAST DIGIT 
RESTORE R5 
SERESTORE R4 
SP) +,R3 7 sRESTORE R3 
000002 0600004 ° 72SET THE STACK FOR RETURNING 


3 SRETURN 
: STORAGE FOR ASCII] DIGIT 
-BYTE 33 TERMINATOR FOR TYPE ROUTINE 
$OCNT: .BYTE tho DIGIT eres 
SOFILL: .BYTE ZERO FILL SWITCH 
SOMODE: .WORD ;NUMBER OF DIGITS TO TYPE 
.SBTTL SAVE AND RESTORE RO=R5 ROUT INES 


SRR EEE ERRE RARER EKER EKER EEE EERE Ree eee ee 
 RSAVE RO-R5 
>*CALL: 
3* 


SAVREG 
; "UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


‘ ST0P==(+16) 
i* t2---(+18) 
Se +4==-R5 
ct tO---RS 
st *8-=-R5 
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3*+10===R2 
3*+12---R1 
3*+14=--R0 


$SSAVREG: 
MOV 


RO,-(SP) 


R 
000022 22(SP) ,=(SP) 
000022 22(SP) .=(SP) 
000022 22(SP) ,-(SP) 
000022 22 (SP) ,-(SP) 


lie RO-R5 


:*CAL 
RESREG 
$RESREG: 
(SP)+,22(SP) s RESTORE PC OF CALL 
(SP)+,22(SP) SZRESTORE PS OF CALL 
(SP)+,22(SP) 7zRESTORE PC OF MAIN FLOW 
(SP)+,22(SP) 2 sRESTORE PS OF MAIN FLOW 
(SP)+,R5 N 
(SP) +,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 2 
(SP)+,RO 3zPOP STACK INTO RO 


RTI 
-SBTTL TRAP DECODER 


DR IUIO II IIIIOIIIOIOIOIIIIIOIISIIII IO IOOIOIOIUIDIOIOUIUIDIUIOIUIDIUIIIO Io in itttit 

> *THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’* INSTRUCTION 
:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


$TRAP: RO,-(SP) : SAVE RO 
MO 2(SP) ,RO GET TRAP ADDRESS 
-(RO) [BACKUP BY 2 
(RO) ,RO ;;GET RIGHT BYTE OF TRAP 
R : POSITION FOR INDEXING 
$TRPAD (RO) ,RO ZINDEX T TABLE 
RO :GO TO ROUT INE 


ee Ne NN eee ee le ee ae ee ae : 


Ee 
et 3 3 Sh 2 SS WWW WWII PP OS 


3-THIS IS USE TO HANDLE THE ‘'GETPRI*’ MACRO 

$TRAP2: MOV (SP) ,=(SP) 72MOVE THE PC DOWN 
MOV 4(SP),2(SP) 7sMOVE THE PSwW DOWN 
RT] isRESTORE THE PSw 


-SBTTL TRAP TABLE 


a tn tt te et ee et i ee ee ee 
eee Nee Ne Nee eee ee ae eee es 
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:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘‘TRAP’' INSTRUCTION. 


$TRPAD: .WORD $TRAP2 
$ 7s CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
; sCALL=TYPOC TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
;-CALL=TYPOS TYPE OCTAL NUMBER (NO LEADING ZEROS) 
;-CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 


:-CALL=GTSWR TRAP+5(104405) GET SOFT-SWR SETTING 

see et aot TRAP+6(104406) TEST FOR CHANGE IN SOF T-SWR 
; CALL=RDCHR TRAP+7(104407) TTY TYPEIN CHARACTER ROUTINE 
; CALL=RDLIN TRAP+10(104410) TTY TYPEIN STRING ROUTINE 


SCALL=SAVREG TRAP+11(104411) SAVE RO-R5S ROUTINE 
$RESREG SPCALL= RESREG  TRAP+12(104412) RESTORE RO-R5 ROUTINE 


>MESSAGES 


ROMNUM : 


I 
I 
I 
I 
I 
SC] 


~AS 32/ 
BELL <207><377><377> 
RRNORM: eat, <12><15>/NO ROMS RESPONDED TO THE SIZING ROUTINE/<12><15> 


005105 


020056 DRHEAD: .ASCIZ /DIAG. ROM (E20) / 
2450 


BRHEAD: .ASCII] <12>/BOOTSTRAP ROM ENTRY POINTS AND DEVICE CODES/<15><12> 


-ASCIZ ° , RUN DIAG. DEVICE CODE/ 


052522 020116 
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044504 
5 


SEQ 0033 


PFHEAD: .ASCIZ @PSEUDO POWER-FAIL VECTOR ADR./NEW PCa 


2ss 


ER2MSG: . /COULD NOT FIND DEVICE CODE / 


ooCGO OOO 
atet AY 
wa SS 


R 


FRIMSG: . /FOUND UNEXPECTED DEVICE CODE / 


wn 
—MN——-90O0 
NASONUIW 


/POWER=FAIL VECTOR ERROR/<15><12> 


lolelelo) 


EXPECTED RECIEVED/<15><12> 


ERGMSG: . /POWER=FAIL DATA ERROR/<15><12> 


EXPECTED RECIEVED/<15><12> 


CRCMSG: . /CRC ERROR IN ROM E-/ 


201 


PFMSG: . /COULD NOT DETERMINE POWER-FAIL VECTOR ADDRESS/ 


04 
04 
04 
05 
02 
04 
00 
04 
04 
04 
04 
044 
0 
04 
04 
04 
05 
04 


/NO ROMS TEST ERROR/<15><12> 
047522 


020040 $ VALUE ADDRESS/<15>« 12> 
046101 
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SEQMSG: .ASCII <15><12>/ROM SEQUENCE IS INCORRECT AS PER / 


INSTALLATION PROCEDURE ./ 


EVEN 


BUFFERS 


elolelelelelelelelelelelelelelelelolo) 


(1) 
(1) 
(1) 
(1) 
(1) 
(7) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 


« WORD 
: .BLKB 
-BLKB 


ff -OOOCOCOO 


lelelele) 
ODO 


MES2: -BLKB 
ERRMSG: :BLKB 
;+THE FOLLOWING CODE WAS ADDED IN REV BO: 

> +"'CLEAR'’ CLEARS THE NEW LABEL AND BUFFER LOCATIONS 


2*°'CONT"’ AND "'CON2*’ FILL “BUFI** WITH THE CONTINUATION ROM DATA AND 
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s #SET ERROR FLAGS WHEN NECESSARY 


Se +" HOLCK1'' AND ‘HOLCK2'' CHECK FOR HOLES TO VERIFY THE POWER FAIL 
3 *VECTOR ADDRESS; ALSO SET 11/60 INDICATOR WHEN APPLICABLE 


:+"ROMTYP'' AND ‘ROMNM'' FILL THE MESSAGE BUFFER WITH A CONTINUATION ROM 
> +ME SSAGE AND WITH A ROM IDENTIFICATION MESSAGE 


912100 —_— ee * RO ;+SET UP TO CLEAR LOCATIONS 
: ;? 
012142 MP RO, #F INISH 7+ALL CLEARED? 
1$ ;+BRANCH IF NO 
i* 


001152 CONT: CONF IN :+CONTINUATION CHIP? 
> teeaaats IF YES 


001132 1$: CONERi SCHIP DOES NOT BELONG HERE-SET ERROR FLAG 
000001 (RO) + :+SET CONTINUATION ROM INDICATOR 
177777 (RO) + : +1LLEGAL ROM'S DEVICE CODE =-1 


: #POINTING OVER THIS CHIP? 
5 GROEN IF YES 


001116 : CONF IN : CONTINUATION CHIP? 

2$ ;+BRANCH IF YES 
001102 CONER2 [+CHIP IS MISSING-SAVE DEVICE CODE 
000002 2 RO i+ 


000001 $ iP (RO) SET CONTINUATION CHIP INDICATOR 
R2 2 +GET PREVIOUS DEVICE CODE 
000004 a RO +POINT TO CORRECT LOCATION 
(RO) + ; +PUT IN DEVICE CODE 


RT 
000002 170044 HOLCK1: ROMF IN an CHIP IN SOCKET #1? 
8 >: +BRANCH IF NO 


R + 
000004 170032 HOLCK2: : ROMF IN :+A_CHIP 4 i #2? 


5 SGRANCH 


88 


SaaRee 
EYRRSRA 


ALARERE 
ARMVENVO 


SE 
ao 


C 
000777 173224 2 : a4173224 ;+ARE oa SET? 


NO 
000002 001020 He, FLAG TeSET 11/60_INDICATOR 
001012 : (R6) :+SET UP ALTERNATE RETURN 


: SARE 4 f pu Ses? 


ah 


1$ IF NO 
001016 MOV a (R6) ; +SET UP ALTERNATE RETURN 


000001 1$: MP “ $CONTINUATION CHIP? 
:41TS A DEVICE. CHIP FIND SOCKET # 
+ —_ 

000024 : : # +FIND SOCKET 

012154 MO ES, R5 3 +LOAD MSG INTO BUF FER 

173240 wa F ILBUF re 


REVRRSSRVKS 


11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11064 
11066 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 


— I YS SS So =) 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


Wis & 
MON 


2% 
. 
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— 3 YY YS 
RNEFSR 


~ 
oO 


000004 a, R3 :+POP OVER CONTINUATION CHIP DATA 
000740 (R6) i +SET UP ALTERNATE RETURN 


PC 
000170 : (R3) ‘ #BEGINNING A_NEW ROM? 
3$ estate IF NOT 


SPOINT TO NEXT SOCKET 
167712 R ROMF IN :+1S A ROM T HERE? 


$ H IF YES 
000002 R2 :+POINT TO NEXT MSG 
BR 1$ : +CONT INUE 
28: « @& +LOAD ROM ID 
173170 PC F ILBUF 3+INTO THE MSG BUFFER 
se 
BR 4 ae 
000011 3$: (R4)+ ;+LOAD A TAB 
4$: C i+ 


3 +*SEQUENCE TEST 
Saat i sy VERIFIES THAT CONTINUATION CHIPS ARE — WHERE 


lelelelelelelelelelelelelelelelele) 

pa Por Soon Sr oe Pe me fm he = | 

ak ae a oe cl a cae ce ce ce cd a a cl ce cd 
Ses 


MOMNMNNNNYNY 


Wren --— 
MA SMA 


E ARE NO 
AND THAT SOCKET #2 HAS A CHIP IF THE PROCESSOR IS AN 11/60. 
;+1F THE ONLY PROBLEM IS ALPHABETICAL ORDER AND/OR HOLES, 
>+THEN A CORRECT SEQUENCE IS DETERMINED AND PRINTED OUT. 


:*FIRST, CHECK FOR ILLEGAL CONTINUATION ROM ERRORS 
:+IF ANY ARE FOUND, PRINT ERROR MSG AND EXIT 


012767 C SEQTST: MOV P 3+SET UP FOR ‘ERR 
TST CONER1 3 +WAS ge je ERROR? 


: +BRAN 

+THE oT ee ee THE CHIP 
S .«*POINT TO MSG TABLE 

167622 :+SET ERROR FLAG 

R3 2 +IDENTIFY = ROM FOR PRINTOUT 

+BRANCH IF FOUND IT 


seSeT UP FOR NEXT ROM MSG 
:4SET UP TO IDENTIFY NEXT ROM 


+ sWAS THERE AN ERROR? 
; *BRANCH IF ny 
167566 CONTWO [+SET ERROR FLAG 
000604 G1 :+PASS THIS ADDRESS TO ERRHAN 
CONER ; *BUILD THE MSG 
176272 - 3 
S1+2 


SERSANSS 


INWW 
yo 
MEM 


000562 
176270 


LaEsee 


4$ :#REPORT T HE ERROR 
000560 3$: (R2), ARG! +PASS MSG ADDRESS TO *ERRHAN"' 
172410 4$: ao ERRHAN 2 *REPORT ERROR 


elelelelelelelelelelelolelelelo) 
AIG 


3 SS SS SS Ss SS SS 
3 Ys 9 9 4 9 Ss > 4S 14 9 4 


3 


;*1F THERE WERE NO CONTINUATION ROM ERRORS, BUILD THE FOLLOWING TABLE: 
t+ SE QBUF : FIRST DEVICE CODE 
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# OF CONTINUATION ROMS FOR FIRST DEVICE 


SECOND DEVICE CODE 
# OF CONTINUATION ROMS FOR SECOND DEVICE 


ENDSEQ: FOURTH (LAST) DEVICE CODE 
‘HOLE’’, THE DEVICE CODE WILL BE A O. 


eBe Se Se Be Se Be 


‘eooe%34¢%4 


012703 : AMSEQBUF , R3 :+SET UP_TO FILL A TABLE CALLED *‘SEQBUF"’ 
MO 4 tT R2 :+POINT TO FIRST ROM 


o 
e 
. 


+ 
;+POINT TO NEXT ROM 
167510 :+1S IT A HOLE? 
$ ;+BRANCH IF YES 
000514 : : S+1S IT A re CHIP? 


:*BRANCH IF YES 

[+ITS A DEVICE ROM-PUT DEVICE CODE INTO TABLE 
000004 : a :+POINT TO NEXT DEVICE CODE LOCATION 
000200 : ;+POINT TO NEXT ROM 
000020 RO a ? 


;+ALL DONE 


; +NO-BRANCH 
! :+TABLE COMPLETELY BUILT 
: -(R3) :+COUNT ONE CONTINUATION CHIP IN LOCATION 
011442 #2 R3 :+POINT TO NEXT DEVICE CODE LOCATION 
011446 000766 5$ ;? 


:+*+NOw CHECK DEVICE CODES IN *‘SEQBUF** FOR ALPHABETICAL ORDER AND 
:+CHECK FOR “HOLES'*. IF THERE IS A DUPLICATE DEVICE CODE, PRINT 
;+AN ERROR MESSAGE AND EXIT. IF DEVICE CODES NEED SORTING 
;+AND/OR HOLES FILLING, DO IT AND SET THE SEQUENCE ERROR 

7+FLAG. ALSO CHECK FOR THE 11/60 SPECIAL CASE. 


450 012703 ALPHCK: MOV AMSEQBUF , R3 :+SET UP TO CHECK ALPHABETIC SEQUENCE IN *‘SEQBUF 
010304 1$: MOV R3 R4 :+WILL BE COMPARING (R3) TO (R4) 
2$: 4 R4 3 +WHERE R3 AND R4 POINT TO DEVICE CODE LOCATIONS 
#ENDSEQ :+PAST THE LAST DEVICE CODE? 
>; +BRANCH IF YES 
[+IS THERE A DEVICE CODE HERE? 
:+BRANCH IF NO 


:+IS ng # A DEVICE CODE HERE? 
3+ 


F NO 
:+IS THE SEQUENCE CORRECT? 
:+BRANCH IF NO-FOUND A DUPLICATE 
;+BRANCH IF NO-NEED TO DO A SHIFT 
3 +YES~CONT INUE 
:+POINT TO NEXT DEVICE CODE 


:+ALL DONE? 
+ : #BRANCH IF YES 
167356 4$: ADUPERR ROMERR ;+SET ERROR FLAG 
000374 :+PASS THIS ADDRESS TO *ERRHAN’* 
(R4) ; #BUILD THE MSG 


*9 
e 


lelelelelelelelelelelelelelelela) 
— SS SS Ss Ss FH SS Ss SS Ss YS SH YH SS 
PERERR Ocoee SS 


elelelelelelelelelelelelelelelelelelelelelo) 
ae er rm Pn er Pe Pe ee ee ee Pe Pe 
— 


SHREW 
DVONRNOROR 
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172212 pC ;+REPORT THE ERROR 
i+ 
5$: ; :+SET UP FOR THE SHUFFLE 
i+ 
6$: . RO :+SHIFT THE VALUES 
+ 


BNSSR OSES 


Mh 
s@ 
te 
>> 

+ 


MUIViv 
™~S 
o 


R2) 
RO, (R1) 3 
000200 167302 AMSEQERR, ROMERR ;+SET THE SEQUENCE ERROR FLAG 
2$ :+*CONTINUE SORTING 
: R3, R5 :+SET UP TO SEE IF WE HAVE A ‘HOLE*’ 

012114 : MP #ENDSEQ ;+END OF TABLE? 
9$ 2+YES-THIS WAS NOT A ‘ 
000004 3+NO-POINT TO NEXT DEVICE CODE LOCATION 
:+IS hey By ROM HERE? 


8$ : +BRANCH IF NO 
000032 167260 :+A_ROM IN SOCKET #2 ONLY? 
BNE :+BRANCH IF NO 
173224 :+11/60 SPECIAL CASE? 
11$ ;+BRANCH IF NO 


3+THE ONLY ROM MUST STAY IN SOCKET 42 
3+YES-THERE IS A HOLE THAT CAN BE FILLED 
:+GET READY TO SHIFT THE VALUES 

s+FILL IN THE HOLE 

7+AN 11/60? 


;+BRANCH IF NO 

:+I1S SOCKET #2 EMPTY? 
: +BRANCH IF 

:+1S SOCKET #1 EMPTY? 
; CH IF YES 


AMSEQBUF , R1 :+SET UP TO SHIFT 
ASE QBUF +4, R2 :+CHIPS #1 AND #2 
BR 6$ :+DO THE SHIFT 
19$: MSEQERR, ROMERR ;+WAS THERE A SEQUENCE ERROR? 
ight : +BRANCH IF YES 
ot 


3+THE FOLLOWING ROUTINE BUILDS THE CORRECT SEQUENCE MSG TO BE 
;+PRINTED AS AN ERROR MSG BY ‘TERPHAN'' 


AMES1, ARG :+PASS MSG ADR. TO *ERRHAN’’ 
ACR, ARG2 :+PASS THIS TOO 
ASE QBUF RO ; 


+ 


88 


AAO aon AAO 
SSRISELSIALELAAOVHASS 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


ee ee ee ee ee a el ce ee ee ee ed eed ed ed 
kk ed ed ed ed nd od od 


Sr S%— 


N 
NM 
ap 


> e 


#MESTAB, R2 it 
WMES1, RG 3+START BUILDING THE ERROR MSG 
#ERMESS, R5 :+PUT IN THE FIRST PART 
Pt. F }LBUF i? 
+ 
(RO) 7+1S A ROM IN SOCKET #1? 
1$ ;+BRANCH IF YES 
#4, RO :+DO SOCKET #2 ONLY 


fe, Re 3* 
eons BUILD :+SET UP THE DEVICE CODE PART 
* 


SEER EEEEE 
— et 
FWNM CO OONOMU SW 
OOOOOOCOCVOooooo 
lk ed ad ed et a 
Nonny 3 Ss Ss os 
SNANSAIIRE 
RVNSERENVSEA 


= 
N 
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012014 012067 176214 MES2 


0120 176212 os 
: R5 ;+IDENTIFY THE ROM # 
17236¢ . C F ILBUF ;+ 


* 
000100 R5 :*PUT IN EITHER DEVICE CODE OR CONTINUATION MSG 
172346 C F ILBUF ;+ 


S 
SSS 
ee 


£5 


s+ 
7 +ANY CONTINUATION ROMS? 
;*BRANCH IF NO 
;+COUNT DOWN ONE ROM 
012154 :*SET UP FOR CONTINUATION MSG 
2$ 3 +CONT INUE 
7 +ANY nie Wea ROMS? 


3 YES 
(R4) ;+MUST END WITH 0 BYTE 
171672 mC ; #REPORT THE ERROR 


lolelelelelelelelejlelea) 
S8o 


Hp pee ee ee 
SRERERS 


ooo 
— YS 
iad 
ss 
an 


inde DEVICE CODE 
# OF CONTINUATION CHIPS FOR FIRST DEVICE 
: +SECOND DEVICE CODE, ETC 


i 
: FOURTH (LAST) DEVICE CODE 


+ SEXTRA CONTINUATION CHIP ERROR FLAG 
:+MISSING CONTINUATION CHIP FOR THIS DEVICE 
: *AL TERNATE © hae ADDRESS 


[+CONTINUATION ROM FOUND INDICATOR 
7+DEVICE ROM FOUND INDICATOR 
:+PASSES MSG ADR. TO ‘ERRHAN’’ 
s #PASSES CR OR HT TO ‘ERRHAN’’ 


; ALTERNATE RETURN ADDRESS 
:+ASCII MSG TABLE 
“+ 


*¢ 


elelelelelelelelelelelelalolelolele) 


ROM4 
: .ASCIZ /IS A CONTINUATION ROM/ 


— es Ss SS SS SS SS SS SS SS SS 3 SS SS Ss SS SS SS SS SS SS SD 


N 
oO 


eASCIZ <15><12>/A CONTINUATION ROM IS INCORRECTLY LOCATED IN/ 


POPQNOININNININDNINNDNNININDNINGPYUN NINN NNoNnononofry 
SONNQMUMUMUS RAR WWRoNnn oO 
SUIASINBELSSHENBSRRLMBS ROCKED 


MN 
— 


‘\ 


SBMA NSOVINA 
RRRRRRKKK 


nN 
— 
oO 
a) 


2: ,ASCIZ <17><12>/A CONTINUATION ROM IS MISSING FOR DEVICE CODE/ 


01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
012 
01 
012 
01 
01 


BM -WEWON? HN FO 


_~— 
NMI 
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Oo 
— 
Nm 
N 
és 


052101 


x 


<15><12>/THERE IS A DUPLICATE ROM WITH DEVICE CODE/ 


MNnoMnononorforfory 
SAREE 
SAH Onsano 


elelelelelelelelelelelale) 
Nv 
o 


a yd nd od ed 


Mmronoro 
Sy 
Ro 


/SEQUENCE SHOULD BE:/<12> 


7/ROM 1(E35) / 
7ROM 2(E33) / 
/ROM 3(E34) / 


7ROM 4(E32) / 
024462 
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6706* 6765" 6811* 6859# 
6686 6812* 68604 
6446 64484 
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6399 65824 
6292* 6293* 6349 6353 65854 


68544 
68574 


6352 6360 6401 64 36 6484 6539 6670 6812 6818 
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62294 
68584 


5986 


66444 
6782 


O ote ! 6707 6769 
5996* 


6356 64804 6655 


61334 


6768* 


65874 





CZM9BCO M9312 BOOT TERMR 8k 


CZM9BC .P11 
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6447 64528 
64424 


6295 6402 6444 


68554 


6192* oe 
* 
6018» £951 


68454 


6541* 


6295* 
6804 
6442 


6391 
6635 


6392 6402 
6638 6664 





CZM9BCO M9312 
CZM9BC P11 


SwO5S 
SwO6 


BOOT TERMR 8K 


06-NOV-78 11:15 
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6517* 6519* 65224 
6022 6233* 6234 6235 
62684 


63684 


6386 6539 6541 6542 


6237* 


65464 


6242* 


6247 


6248 


6249* 
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SDDW14 
SDDW15 
$DDwe 


60334 


6439 6539 6540 
6146 6539 6540 
60334 


59848 5986 5987 6539 


ssegegesagessss 
Se Saneceess 


RR 
NMNWWNWNO 


—) 
& 
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006344 
001144 86 6029 6033* 
001130 


005066 
005626 
RaRKEKK 


005746 


eeKKKEK 


5987 6033 6541 


5986 6033 


59664 5969 5971# 5983  5985# 6033 6539 6540 65418 65874 65884 
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6540 6543 6544 
€540 6543 6545 


5969 598% 5984 6033 6539 


6540 


6541 


6542 


6543 


6546 
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-$40C 9444 
-1170 4984 


- ABS. 012522 000 


ERRORS DETECTED: 0 
tyne 3F a. CZM9BC .SEQ/CRF /NL : TOC=CZM9BC..SML,CZM9BC P11 
10 13 .8 SECONDS 


RUN-TIME "RATIO: 122/26=4.8 
CORE USED: 32K (63 PAGES) 





